﻿Imports System.ComponentModel

Namespace myBookmarks.Core


    Public Class BookmarkList
        Private _BookmarkId As Integer
        Public Property BookmarkId() As Integer
            Get
                Return _BookmarkId
            End Get

            Set(ByVal value As Integer)
                _BookmarkId = value
            End Set
        End Property



        Private _Name As String
        Public Property Name() As String
            Get
                Return _Name
            End Get

            Set(ByVal value As String)
                _Name = value
            End Set
        End Property



        Private _Location As String

        Public Property Location() As String
            Get
                Return _Location
            End Get

            Set(ByVal value As String)
                _Location = value
            End Set
        End Property



        Private _Notes As String
        Public Property Notes() As String
            Get
                Return _Notes
            End Get

            Set(ByVal value As String)
                _Notes = value
            End Set
        End Property


        Private _UserName As String
        Public Property UserName() As String
            Get
                Return _UserName
            End Get

            Set(ByVal value As String)
                _UserName = value
            End Set
        End Property



        Private _CreatedDate As DateTime
        Public Property CreatedDate() As DateTime
            Get
                Return _CreatedDate
            End Get

            Set(ByVal value As DateTime)
                _CreatedDate = value
            End Set
        End Property
        Private _LastUpdated As DateTime
        Public Property LastUpdated() As DateTime
            Get
                Return _LastUpdated
            End Get

            Set(ByVal value As DateTime)
                _LastUpdated = value
            End Set
        End Property

        Public ReadOnly Property Labels() As List(Of String)
            Get
                Dim returnList As List(Of String) = New List(Of String)
                returnList.AddRange(Labelnames.Split(","))
                Return returnList
            End Get
        End Property
        Private _labelNames As String
        Public Property Labelnames() As String
            Get
                Return _labelNames
            End Get
            Set(ByVal value As String)
                _labelNames = value
            End Set
        End Property
    End Class

End Namespace